home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / showgrb_ < prev    next >
Internet Message Format  |  1995-03-31  |  7KB
  1. From: GLAUDE DAVID <dglaude@is1.vub.ac.be>
  2. Subject:  v06i014:  showgrb_gd - Grob Viewer v1.0, Part01/01
  3. Newsgroups: comp.sources.hp48
  4. Followup-To: comp.sys.hp48
  5. Approved: spell@seq.uncwil.edu
  6.  
  7. Checksum:  797674624 (verify with brik -cv)
  8. Submitted-by: GLAUDE DAVID <dglaude@is1.vub.ac.be>
  9. Posting-number: Volume 6, Issue 14
  10. Archive-name: showgrb_gd/part01
  11.  
  12.  
  13. BEGIN_DOC showgrob.doc
  14.         Hello, HP48 users
  15. ( Q: is there any women in this mail server ???? ]
  16.  
  17.                 I am glad to give you the first SYS-RPL
  18.         application I wroted for a past examination. !!!
  19.         It is a simple Grob Viewer with a scrolling capability
  20.         that do not destroy PICT but work a bit the same as a
  21.         "PICT STO GRAPH".
  22.  
  23.         Keys are "explane" in the source I give you below.
  24.         Compiled version is given to save time to you.
  25.  
  26.         Mail me any comment or question.
  27.  
  28.         *******************************************
  29.         ;-)     English is not my best skill    ;-)
  30.         *******************************************
  31. END_DOC
  32.  
  33.  
  34. BEGIN_ASC showgrob.asc
  35. %%HP: T(1);
  36. "D9D202BA812BF8111920C0000D9D20CA0311359320F04FC2E4CF146592300B82
  37. 10CA3047A20D6E204054879647B21300D47079E60E8E6079E60D9D209FF303D8
  38. 16D9D20D5040B1FF3D9D2088704231D4B2130F8040B1FF3D9D2088704051D4B2
  39. 13099040B1FF3D9D2088704E61D4B21303A040B1FF3D9D2088704C81D4B21307
  40. 6040B1FF3D9D2088704740E0C2A20F20003586F6777427F6260224970274C657
  41. E2021393932352721C2A20F20004676C61657465604963713E2675726E21636E
  42. 22656847215E14121F04B50E0B2130C1B46B1FF3D9D208870418A3079E60D6E2
  43. 0405487964772D70B2130F7140745364423021EF3B2130D00403D816D9D20D50
  44. 40B1FF3D9D208870409615B2130F8040B1FF3D9D20887045E615B213099040B1
  45. FF3D9D2088704EA615B21303A040B1FF3D9D208870430715B2130F7140745364
  46. 423021EF3B21308523021EF3B2130DEBB09E5503353679E60D6E204054879647
  47. 79E601DE4058983743E4CA03144193B2130B2130B99D"
  48. END_ASC
  49.  
  50. BYTES: #D99Bh 372
  51.  
  52. BEGIN_UU showgrob.uue
  53. begin 644 showgrob
  54. M2%!(4#0X+42=+2"K&+*/$9$"#`#0V0*L,!%3.0(/]"Q._$%6*0.P*`&L`W0J
  55. MT.8"!$5X:70K,0!-!Y=NX.@&EV[0V0+Y/S"-89TMT`4$&__3V0*(!R0332LQ
  56. M\`@$&__3V0*(!P0532LQD`D$&__3V0*(!^0632LQ,`H$&__3V0*(!\0832LQ
  57. M<`8$&__3V0*(!W0$#BPJ\`(`4VAO=T=R;V(@0GD@1VQU+B`Q.3DR)2?!H@(O
  58. M`$!VQA961U8&E#87XV)7)^82-N8B5H9T$N5!(?%`6^"P$@,<2[;Q/YTM@'A`
  59. M@3IPZ09M+D!0A)=&=]('*S'P%P1'-48D`Q+^LQ(##4`PC6&=+=`%!!O_T]D"
  60. MB`<$:5$K,?`(!!O_T]D"B`=4;E$K,9`)!!O_T]D"B`?D:E$K,3`*!!O_T]D"
  61. MB`<T<%$K,?`7!$<U1B0#$OZS$@-8,B#A/RLQT+X+Z54P4V.7;M#F`@1%>&ET
  62. 4EVX0[02%B7,T3JPP010Y*S&P$@,`
  63. `
  64. end
  65. END_UU
  66.  
  67. -----------------------------------------------------------------------
  68. SOURCE FOR TOOLS :
  69.  
  70. BEGIN_SRC showgrob.m
  71. OU SHOWGROB
  72. LL SHOWGROB.LR
  73. SU XR
  74. SE ENTRIES.O
  75. SE ENTRIADD.O
  76. RE SHOWGROB.O
  77. END_SRC
  78.  
  79. BEGIN_SRC entriadd.a
  80. *
  81. * Missing in entries.a
  82. *
  83. =Restore16 EQU #0E05B *
  84. =Save16    EQU #0E047 *
  85. END_SRC
  86.  
  87. BEGIN_SRC showgrob.s
  88. * ShowGrob first distributed version.
  89. * by Glu ( Glaude David )
  90. * usage : one grob on first level !!!
  91. * key   : arrow                 to scroll
  92. *         shited arrow          to go to extremity
  93. *         on                    to quit
  94. *         next                  to see copyright message
  95. *---------------------------------------------------------
  96. *
  97. * Include the header file KEYDEFS.H, which defines words
  98. * like kcUpArrow at physical key numbers.
  99. *
  100. INCLUDE KEYDEFS.H
  101. *
  102. * Include the eight characters needed for binary download
  103. *
  104. ASSEMBLE
  105.         NIBASC  /HPHP48-D/
  106. RPL
  107. *
  108. * Begin the secondary
  109. *
  110. ::
  111.   CK1NOLASTWD
  112.   CK&DISPATCH1 # C
  113.   ::
  114.   RECLAIMDISP           ( *Claim the alpha display* )
  115.   ClrDA1IsStat          ( *Temporarily disable clock* )
  116. *                       ( *Try removing ClrDA1IsStat* )
  117.   VERYSLOW
  118.   TURNMENUOFF           ( *Turn off menu line* )
  119.   ZEROZERO              ( UserGrob #0 #0 )
  120.   ROT                   ( #0 #0 UserGrob )
  121.   XYGROBDISP            (  )
  122. *
  123.   FALSE                 ( FALSE )
  124.   { LAM Exit } BIND     ( *Bind POL exit flag* )
  125.   ' NOP                 ( *No display action*  )
  126.   ' ::                  ( *Hard key handler*   )
  127.     kpNoShift #=casedrop
  128.       ::
  129.          kcUpArrow    ?CaseKeyDef
  130.                           :: TakeOver SCROLLUP ;
  131.          kcLeftArrow  ?CaseKeyDef
  132.                           :: TakeOver SCROLLLEFT ;
  133.          kcDownArrow  ?CaseKeyDef
  134.                           :: TakeOver SCROLLDOWN ;
  135.          kcRightArrow ?CaseKeyDef
  136.                           :: TakeOver SCROLLRIGHT ;
  137.          kcNextRow    ?CaseKeyDef
  138.                           :: TakeOver Save16
  139.                              "ShowGrob By Glu. 1992"
  140.                              DISPROW1*
  141.                              "dglaude@is1.vub.ac.be"
  142.                              DISPROW2*  ERRBEEP
  143.                              VERYVERYSLOW Restore16 ;
  144.          kcOn         ?CaseKeyDef
  145.                           :: TakeOver
  146.                              TRUE ' LAM Exit STO ;
  147.          kcRightShift   #=casedrpfls
  148.          DROP 'DoBadKeyT
  149.       ;
  150.     kpRightShift #=casedrop
  151.       ::
  152.          kcUpArrow    ?CaseKeyDef
  153.                           :: TakeOver JUMPTOP ;
  154.          kcLeftArrow  ?CaseKeyDef
  155.                           :: TakeOver JUMPLEFT ;
  156.          kcDownArrow  ?CaseKeyDef
  157.                           :: TakeOver JUMPBOT ;
  158.          kcRightArrow ?CaseKeyDef
  159.                           :: TakeOver JUMPRIGHT ;
  160.          kcRightShift #=casedrpfls
  161.          DROP 'DoBadKeyT
  162.       ;
  163.     2DROP 'DoBadKeyT
  164.   ;
  165.   TrueTrue              ( *Key control flags* )
  166.   NULL{}                ( *No softkeys here*  )
  167.   ONEFALSE              ( *1st row, no suspend* )
  168.   ' LAM Exit            ( *App exit condition* )
  169.   ' ERRJMP              ( *Error handler* )
  170.   ParOuterLoop          ( *Run the ParOuterLoop* )
  171.   TURNMENUON            ( *Restore menu row* )
  172.   RECLAIMDISP           ( *Resize and clear display* )
  173.   ClrDAsOK              ( *Redraw display* )
  174.   ;
  175. ;
  176. END_SRC
  177. -----------------------------------------------------------------
  178.  
  179. BEGIN_RDME showgrob.rdm
  180. I hope source will help you to build aplication with TOOLS from HP.
  181. This is just a transformation of some of the exemples from TOOLS
  182.  but I think that the result is more usefull that these demo.
  183. I do not revendic any copyright .... Not even the idee is new !!!
  184. See TOOLS documentation for right copyright.
  185. END_RDME
  186.  
  187. --
  188. You can call me Glu.  To find me on IRC : /who dglaude*
  189.  If I am there ...  /msg Glu Hello Glu ... I am a HP48 user/programmer.
  190.  I will answer you as fast as possible.
  191. e-mail : dglaude@is1.vub.ac.be
  192.